10 IFK=0THENK=1:LOAD"GRAFNASTICS",8,1
20 POKE53281,0:POKE53280,0:A=49152:A$="M":GOTO200
30 A=49152:A$="":GETA$:IFA$=""THEN210
40 IFA$="H"THENSYSA,8
50 IFA$="T"THENSYSA,9
60 IFA$="R"THENSYSA,7
70 IFA$="I"THENSYSA,6
80 IFA$=CHR$(145)THENSYSA,5
90 IFA$=CHR$(17)THENSYSA,4
100 IFA$=CHR$(157)THENSYSA,3
110 IFA$=CHR$(29)THENSYSA,2
120 IFA$="P"THENSYSA,1
130 IFA$="L"THEN310
140 IFA$="S"THEN320
150 IFA$="0"THENPOKE49711,0
160 IFA$="1"THENPOKE49711,1
170 IFA$="2"THENPOKE49711,2
180 IFA$="C"THENSYSA,12
190 IFA$="U"THENSYSA,10
200 IFA$="M"THENSYSA,9:GOSUB380:GOTO30
210 N=(PEEK(56320)AND15):IFN=15THEN30
220 X=X+((N>8)AND(N<12))-((N<8)AND(N>4))
230 Y=Y-(N=13)-(N=9)-(N=5)+(N=14)+(N=10)+(N=6)
240 X=X-(X<0)+(X>319):Y=Y-(Y<0)+(Y>199):X2=X
250 X1=-(X>255):POKE49716,X1:IFX1=1THENX2=X2-256
260 POKE49715,X2
270 POKE49718,Y
280 SYS49483
290 IFPEEK(49711)=0THENSYS49152,9:PRINTX,Y,PEEK(2)
300 GOTO30
310 K=1:SYSA,11:SYSA,9:INPUT"[147]LOAD FILENAME";NA$:SYSA,8:LOADNA$,8,1
320 SYSA,9:INPUT"[147]SAVE FILENAME";NA$:IFNA$=CHR$(13)THEN30
330 PRINT"PLEASE WAIT..."
340 OPEN15,8,15:OPEN8,8,8,"0:"+NA$+",P,W":PRINT#8,CHR$(0)CHR$(92);
350 FORI=23552TO32575:INPUT#15,E1$,E2$
360 IFE1$="00"THENPRINT#8,CHR$(PEEK(I));:NEXT
370 PRINTE1$,E2$:FORI=0TO1000:NEXT:CLOSE8:CLOSE15:GOTO30
380 PRINT"[147][159]  COPYRIGHT 1987 COMPUTE! PUB., INC."
390 PRINTTAB(10)"ALL RIGHTS RESERVED"
400 PRINT"M[146] MENU"
410 PRINT"0[146] PEEK"
420 PRINT"1[146] DRAW"
430 PRINT"2[146] ERASE"
440 PRINT"H[146] HI-RES"
450 PRINT"P[146] PERSPECTIVE"
460 PRINT"R[146] ROTATE"
470 PRINT"T[146] TEXT"
480 PRINT"U[146] UNDO"
490 PRINT"I[146] INVERT"
500 PRINT"S[146] SAVE"
510 PRINT"L[146] LOAD"
520 PRINT"C[146] CLEAR SCREEN"
530 PRINT"CRSR-LT[146] MIRROR R TO L"
540 PRINT"CRSR-RT[146] MIRROR L TO R"
550 PRINT"CRSR-DN[146] MIRROR T TO B"
560 PRINT"CRSR-UP[146] MIRROR B TO T"
570 RETURN